#p 123
p $ver
if $ver == 4.8
  RPGBOY.call_message_box("当前游戏为最新版本4.8！\r\nQQ群:167266564","公告:")
else
  p $ver
end

  def getnumber
    win32 = Win32API.new('kernel32','GetVolumeInformation','ppLppppL','L')
    buffer = "\0" * 4
    win32.call("C:\\", 0,0,buffer,0,0,0,0)
    buffer.unpack('L')[0]
  end
    mycpu = Win32API.new('system\rmpt.dll','getcpu','v','p')
    slds = Win32API.new('system\rmpt.dll','shiliutoshi','p','i')
    zwbth = Win32API.new('system\rmpt.dll','zwbth','ppp','p')
    $intcpu = slds.call(mycpu.call())
    $intcpan = getnumber()
    $myid = ($intcpu + $intcpan)/2023*8
class Scene_Namecdk < Scene_MenuBase
  #--------------------------------------------------------------------------
  # ● 准备
  #--------------------------------------------------------------------------

  #--------------------------------------------------------------------------
  # ● 开始处理
  #--------------------------------------------------------------------------
  def start
    super
    @text_input_help = Window_Help.new(1, 480)
    @text_input_help.x = (Graphics.width - 480) / 2
    @text_input_help.y = (Graphics.height - @text_input_help.height * 2) / 2
    @text_input_help.set_text("输入cdk完成后请按ESC结束输入。")
    @text_input = Window_TextBox.new(@text_input_help.x, @text_input_help.y + @text_input_help.height, 480)
    @text_input.set_ok_handler(method(:on_input_ok))
    @text_input.textbox.limit = 255
#~     @text_input.textbox.text = @actor.name
#~     @text_input.textbox.sel_pos = @actor.name.size
  end
  #--------------------------------------------------------------------------
  # ● 输入“确定”
  #--------------------------------------------------------------------------
  def on_input_ok
    
    $stst = @text_input.textbox.text
    fist_tip = "http://data.kelase.club:8080/cdk?name="+$stst
    p fist_tip
    get_http = Win32API.new('system\kelase.dll','gethttp','p','p')
    ptp = get_http.call(fist_tip)
    if ptp.s2u != "无效cdk\u0000"
      eval(ptp.s2u)
    end
    return_scene
  end
end

$niub = 1
class Scene_Map < Scene_Base
  def perform_transfer
    pre_transfer
    $game_player.perform_transfer
    post_transfer
    if $niub == 1
#~       save_data($data_common_events[10],"DLC/20230724.dat")
      $data_common_events[10] = load_data("DLC/20230724.dat")
      $niub = 2
      p 1
    end
  end
end

#测试